home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / util / conv / TxtToHTMLv1.6.lha / TxtToHTMLv1.6 / Install < prev    next >
Text File  |  2002-08-29  |  3KB  |  168 lines
  1. (welcome "")
  2.  
  3. (set @default-dest
  4.  (askdir
  5.   (prompt "Where do you want to install TxtToHTML ?\nThe TxtToHTML drawer will be created if you want.")
  6.   (help @askdir-help)
  7.   (default @default-dest)
  8.  )
  9. )
  10.  
  11.  
  12. (set cd
  13.  (askbool
  14.   (prompt "Can I create TxtToHTML drawer ?")
  15.   (help @askbool-help)
  16.   (default 1)
  17.   (choices "Yes" "No")
  18.  )
  19. )
  20.  
  21. (COMPLETE 20)
  22.  
  23. (if (= cd 1)
  24.     (makedir (tackon @default-dest "TxtToHTML"))
  25. )
  26. (if (= cd 1)
  27.     (copyfiles
  28.        (source "ForInstaller/TxtToHTML.info")
  29.        (dest @default-dest)
  30.     )
  31. )
  32. (if (= cd 1)
  33.     (set @default-dest (tackon @default-dest "TxtToHTML"))
  34. )
  35.  
  36.  
  37. (set sorg
  38.  (askchoice
  39.   (prompt "Which version of TxtToHTML do you want to install ?")
  40.   (help @askchoice-help)
  41.   (choices "GUI" "SHELL")
  42.   (default 0)
  43.  )
  44. )
  45.  
  46. (COMPLETE 30)
  47.  
  48. (set proc
  49.  (askchoice
  50.   (prompt "Which processor version do you want to install ? ")
  51.   (help @askchoice-help)
  52.   (choices "68000" "68020-60")
  53.   (default 1)
  54.  )
  55. )
  56.  
  57. (COMPLETE 50)
  58.  
  59. (if (= proc 1)
  60.  (copyfiles
  61.   (source "ForInstaller/TxtToHTML_68020-60") 
  62.   (dest @default-dest)
  63.   (help @copyfiles-help)
  64.  )
  65. )
  66. (if (= proc 1)
  67.  (rename (tackon @default-dest "TxtToHTML_68020-60") (tackon @default-dest "TxtToHTML"))
  68. )
  69.  
  70. (if (= proc 0)
  71.  (copyfiles
  72.   (source "ForInstaller/TxtToHTML_68000") 
  73.   (dest @default-dest)
  74.   (help @copyfiles-help)
  75.  )
  76. )
  77. (if (= proc 0)
  78.  (rename (tackon @default-dest "TxtToHTML_68000") (tackon @default-dest "TxtToHTML"))
  79. )
  80.  
  81. (if (= sorg 0)
  82.  (copyfiles
  83.   (source "TTHgui")
  84.   (dest @default-dest)
  85.  )
  86. )
  87. (if (= sorg 0)
  88.  (copyfiles
  89.   (source "TTHgui.info")
  90.   (dest @default-dest)
  91.  )
  92. )
  93.  
  94. (set lang
  95.  (if (= sorg 0)
  96.   (askchoice
  97.    (prompt "Which locale catalog do you want to install ? ")
  98.    (help @askchoice-help)
  99.    (choices "magyar (© Márton Dósa)" "polski (© ssnakesoft)" "all" "none")
  100.    (default 3)
  101.   )
  102.  )
  103. )
  104.  
  105. (if (= lang 0)
  106.  (makedir (tackon @default-dest "Catalogs"))
  107. )
  108.  
  109. (if (= lang 0)
  110.  (copyfiles
  111.   (source "Catalogs/magyar")
  112.   (dest (tackon @default-dest "Catalogs/magyar"))
  113.  (all)
  114.  )
  115. )
  116.  
  117. (if (= lang 1)
  118.  (makedir (tackon @default-dest "Catalogs"))
  119. )
  120.  
  121. (if (= lang 1)
  122.  (copyfiles
  123.   (source "Catalogs/polski")
  124.   (dest (tackon @default-dest "Catalogs/polski"))
  125.   (all)
  126.  )
  127. )
  128.  
  129. (if (= lang 2)
  130.  (copyfiles
  131.   (source "Catalogs")
  132.   (dest (tackon @default-dest "Catalogs"))
  133.   (all)
  134.  )
  135. )
  136.  
  137. (if (= sorg 0)
  138.  (execute "ForInstaller/cnvcfg")
  139. )
  140.  
  141. (COMPLETE 80)
  142.  
  143. (set docs
  144.  (askbool
  145.   (prompt "Copy docs (and icons) ?")
  146.   (help @askbool-help)
  147.   (default 1)
  148.   (choices "Yes" "No")
  149.  )
  150. )
  151.  
  152. (if (= docs 1)
  153.  (copyfiles
  154.   (source "Docs")
  155.   (dest (tackon @default-dest "Docs"))
  156.   (all)
  157.  )
  158. )
  159. (if (= docs 1)
  160.  (copyfiles
  161.   (source "Docs.info")
  162.   (dest @default-dest)
  163.  )
  164. )
  165.  
  166. (COMPLETE 100)
  167.  
  168. (exit)